home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DJGPP / CBGRX103.ZIP / contrib / libgrx / src / piline.c < prev    next >
Text File  |  1993-12-06  |  2KB  |  65 lines
  1. /**
  2.  ** PILINE.C
  3.  **
  4.  **  Copyright (C) 1992, Csaba Biegl
  5.  **    820 Stirrup Dr, Nashville, TN, 37221
  6.  **    csaba@vuse.vanderbilt.edu
  7.  **
  8.  **  This file is distributed under the terms listed in the document
  9.  **  "copying.cb", available from the author at the address above.
  10.  **  A copy of "copying.cb" should accompany this file; if not, a copy
  11.  **  should be available from where this file was obtained.  This file
  12.  **  may not be distributed without a verbatim copy of "copying.cb".
  13.  **  You should also have received a copy of the GNU General Public
  14.  **  License along with this program (it is in the file "copying");
  15.  **  if not, write to the Free Software Foundation, Inc., 675 Mass Ave,
  16.  **  Cambridge, MA 02139, USA.
  17.  **
  18.  **  This program is distributed in the hope that it will be useful,
  19.  **  but WITHOUT ANY WARRANTY; without even the implied warranty of
  20.  **  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21.  **  GNU General Public License for more details.
  22.  **/
  23.  
  24. #include "p8514a.h"
  25.  
  26. void _GrPIDrawLine(long addr,int color,int deltax,int deltay)
  27. {
  28.  
  29.     if(CURC->gc_onscreen) {
  30.         int oper = C_OPER(color);
  31.         int command = CMD_LINE | DRAW | PLANAR | WRTDATA | INC_X | INC_Y;
  32.         int majorAxis,minorAxis;
  33.         int twiceMinor;
  34.         if((_GrPIDrawTable[oper] ^ (color &= C_SIGNIF)) == 0) return;
  35.         WaitQueue(4);
  36.         outpw(FRGD_COLOR,color);
  37.         outpw(FRGD_MIX,_GrPIMixTable[oper]);
  38.         outpw(CUR_X,COORD_X(addr));
  39.         outpw(CUR_Y,COORD_Y(addr));
  40.         if(deltay < 0) {
  41.         deltay = (-deltay);
  42.         command &= ~INC_Y;
  43.         }
  44.         if(deltax < deltay) {
  45.         command |= YMAJAXIS;
  46.         majorAxis = deltay;
  47.         minorAxis = deltax;
  48.         }
  49.         else {
  50.         majorAxis = deltax;
  51.         minorAxis = deltay;
  52.         }
  53.         twiceMinor = minorAxis << 1;
  54.         WaitQueue(5);
  55.         outpw(ERR_TERM,twiceMinor - majorAxis - 1);
  56.         outpw(DESTY_AXSTP,twiceMinor);
  57.         outpw(DESTX_DIASTP,(twiceMinor - (majorAxis << 1)));
  58.         outpw(MAJ_AXIS_PCNT,majorAxis);
  59.         outpw(CMD,command);
  60.         return;
  61.     }
  62.     _GrP8DrawLine(addr,color,deltax,deltay);
  63. }
  64.  
  65.